From: Luc Teirlinck Date: Mon, 22 Mar 2004 04:41:48 +0000 (+0000) Subject: (format-insert-file): Always return a list of two elements, X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~23607 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=8c50e2d5c05cfffa52a8f0462cee2da4ac4c97bc;p=emacs.git (format-insert-file): Always return a list of two elements, like insert-file-contents does. --- diff --git a/lisp/format.el b/lisp/format.el index 90047e98a6c..09d3e5fa715 100644 --- a/lisp/format.el +++ b/lisp/format.el @@ -416,7 +416,7 @@ The optional third and fourth arguments BEG and END specify the part of the file to read. The return value is like the value of `insert-file-contents': -a list (ABSOLUTE-FILE-NAME . SIZE)." +a list (ABSOLUTE-FILE-NAME SIZE)." (interactive ;; Same interactive spec as write-file, plus format question. (let* ((file (read-file-name "Find file: ")) @@ -429,7 +429,7 @@ a list (ABSOLUTE-FILE-NAME . SIZE)." (setq size (nth 1 value))) (if format (setq size (format-decode format size) - value (cons (car value) size))) + value (list (car value) size))) value)) (defun format-read (&optional prompt)